﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class TiposcamFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As TiposcamBE
        Dim tmpTiposcam As TiposcamBE = New TiposcamBE()
        Try
            With tmpTiposcam
                .Fecha = convertDTFromDb.convertDateTime(dr.Item("Fecha"))
                .IdMoneda = convertDTFromDb.convertInt32(dr.Item("IdMoneda"))
                .TipoCambio = convertDTFromDb.ConvertDecimal(dr.Item("TipoCambio"))
            End With
            Return tmpTiposcam
        Catch ex As Exception
            Throw
        Finally
            tmpTiposcam = Nothing
        End Try
    End Function
End Class
